Option Explicit
Sub B_Sample025()
    Dim mySht As Worksheet
    Columns(1).Clear			'xs檺M
    Range("A1").Value = "u@W"	'D]w
    For Each mySht In Worksheets
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = mySht.Name
    Next
    Set mySht = Nothing			'
End Sub
